home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 5 / inter@ivo 1996-06.iso / cybint5 / bin / cybint5.exe / cybint5.DXR / 00024.ls < prev    next >
Encoding:
Text File  |  1996-05-12  |  1.1 KB  |  39 lines
  1. on exitFrame
  2.   global GArray, ContCol, ContLine
  3.   if ContCol = 1 then
  4.     set aux to getAt(GArray, 1)
  5.     set spraite1 to getAt(aux, ContLine)
  6.     set the locH of sprite spraite1 to 0
  7.     set the locV of sprite spraite1 to 0
  8.     set the visible of sprite spraite1 to 1
  9.     set ContCol to ContCol + 1
  10.     go(the frame)
  11.   end if
  12.   if ContCol = 2 then
  13.     set aux to getAt(GArray, 2)
  14.     set spraite1 to getAt(aux, ContCol)
  15.     set the locH of sprite spraite1 to 320
  16.     set the locV of sprite spraite1 to 0
  17.     set the visible of sprite spraite1 to 1
  18.     set ContCol to ContCol + 1
  19.     go(the frame)
  20.   end if
  21.   if ContCol = 3 then
  22.     set aux to getAt(GArray, ContLine)
  23.     set sprite1 to getAt(aux, 3)
  24.     set the locH of sprite sprite1 to 320
  25.     set the locV of sprite sprite1 to 240
  26.     set the visible of sprite sprite1 to 1
  27.     set ContCol to ContCol + 1
  28.     go(the frame)
  29.   end if
  30.   if ContCol = 4 then
  31.     set aux to getAt(GArray, 4)
  32.     set sprite1 to getAt(aux, ContCol)
  33.     set the locH of sprite sprite1 to 0
  34.     set the locV of sprite sprite1 to 240
  35.     set the visible of sprite sprite1 to 1
  36.     go(the frame)
  37.   end if
  38. end
  39.